home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LaserPrtHC.cpt / LP for QPS demo / background_2562.txt < prev    next >
Text File  |  1990-03-26  |  980b  |  48 lines
  1. -- background: 2562 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 7 (field)
  9. -- low flags: 80
  10. -- high flags: 0007
  11. -- rect: left=59 top=201 right=258 bottom=444
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 0
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 8 (field)
  23. -- low flags: 01
  24. -- high flags: 0007
  25. -- rect: left=3 top=20 right=338 bottom=512
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 20
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: bkgrnd text fld
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.  
  37.   set the cursor to 4
  38.   set lockScreen to true
  39.   set textSize of background field 2 to 9
  40.   set style of background field 2 to scrolling
  41.  
  42.   repeat until char 1 of bkgnd field 2 = "%"
  43.     delete line 1 of bkgnd field 2
  44.   end repeat
  45.  
  46.   pop card
  47. end mouseUp
  48.